source ${path}/RDL_Routing/conf_RDL.tcl

proc pr_getWire_y {x mylist} {
	foreach i $mylist {
		set llx [expr $x-5]
		set lly [expr $i-5]
		set urx [expr $x+5]
		set ury [expr $i+5]
		select_obj [dbQuery -area "$llx $lly $urx $ury" -objType sWire]
	}
}

proc pr_getWire_x {mylist y} {
	foreach i $mylist {
		set llx [expr $i-5]
		set lly [expr $y-5]
		set urx [expr $i+5]
		set ury [expr $y+5]
		select_obj [dbQuery -area "$llx $lly $urx $ury" -objType sWire]
	}
}